option explicit	
Sub Main
dim broj as long, p as long, q as long, r as long, n as long
broj = inputbox("Unesi trocifreni broj")
p = broj\100
q = (broj mod 100) \ 10 
r = broj mod 10 mod 10
n = r*100 + q*10 + p 
msgbox(n)
End Sub